#!/usr/bin/perl

use utf8;
use strict;
use autodie;

my %names = (
		fred 	=> 'flintstone',
		barney 	=> 'rubble',
		wilma	=> 'flintstone'
	);

print "Please input first name\n";
chomp (my $first_name = <STDIN>);
print "\n";
print "The last name is: $names{$first_name}. \n";
